home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 16 / 016.d81 / plotterc demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  72 lines
  1. 0 ifx=0thenx=1:load"sysplotterc.o",8,1
  2. 1 dim lh(7,2),lv(7,2)
  3. 5 gosub 10000:rem menu
  4. 10 sys49152:sys49158:sys49161,1
  5. 20 sys49164,2
  6. 22 line=49173:unline=49176
  7. 25 :
  8. 30 x=a:y=b:a=c:b=d:c=e:d=f:e=rnd(1)*320:f=rnd(1)*200:sysun,x,y,a,b
  9. 32 sysli,c,d,e,f:ifpeek(197)=64then30
  10. 35 sys49155:print"[147]":getk$:return
  11. 100 sys49152:sys49158:sys49161,1
  12. 101 sys49164,2
  13. 110 li=49173:un=49176
  14. 120 e=0:f=0
  15. 130 r=rnd(1)*20+1:g=rnd(1)*20+1
  16. 140 x=a:y=b:a=c:b=d:c=e:d=f
  17. 150 e=e+rnd(1)*r:f=f+rnd(1)*g
  18. 155 if peek(197)<>64 then 210
  19. 160 sysun,x,y,a,b
  20. 170 sysli,c,d,e,f
  21. 180 ifrnd(1)<.2then130
  22. 190 iff<190then140
  23. 200 goto 120
  24. 210 getk$:sys49155:print"[147]":return
  25. 1000 sys49152:sys49158:sys49161,1
  26. 1010 sys49164,2
  27. 1020 li=49173:un=49176
  28. 1030 sysli,9,9,9,160
  29. 1040 sysli,9,160,300,160
  30. 1050 y1=80:y2=80:y3=80:y4=80:y5=80
  31. 1055 sysun,10,s1,80,s2
  32. 1060 sysli,10,y1,80,y2
  33. 1065 sysun,80,s2,150,s3
  34. 1070 sysli,80,y2,150,y3
  35. 1075 sysun,150,s3,220,s4
  36. 1080 sysli,150,y3,220,y4
  37. 1085 sysun,220,s4,300,s5
  38. 1090 sysli,220,y4,300,y5
  39. 1091 s1=y1:s2=y2:s3=y3:s4=y4:s5=y5
  40. 1100 y1=y1+(rnd(1)*15)-7.5
  41. 1101 y2=y2+(rnd(1)*15)-7.5
  42. 1103 y3=y3+(rnd(1)*15)-7.5
  43. 1104 y4=y4+(rnd(1)*15)-7.5
  44. 1105 y5=y5+(rnd(1)*15)-7.5
  45. 1106 ify1<10theny1=10
  46. 1107 ify1>160theny1=160
  47. 1108 ify2<10theny2=10
  48. 1109 ify2>160theny2=160
  49. 1110 ify3<10theny3=10
  50. 1111 ify3>160theny3=160
  51. 1112 ify4<10theny4=10
  52. 1113 ify4>160theny4=160
  53. 1114 ify5<10theny5=10
  54. 1115 ify5>160theny5=160
  55. 1119 if peek(197)=64 then 1055
  56. 1120 getk$:sys49155:print"[147]":return
  57. 10000 print"[147]":poke53281,0:poke53280,0
  58. 10010 print"sysplotterc demo program"
  59. 10020 print" choose one:"
  60. 10030 print"1 = silly application"
  61. 10040 print"2 = odd application"
  62. 10050 print"3 = sensible application"
  63. 10060 print"4 = back to loadstar"
  64. 10070 getk$:ifk$=""then10070
  65. 10080 ifk$<"1"ork$>"4"thenpoke53280,rnd(1)*15:goto10070
  66. 10090 k=val(k$)
  67. 10100 onkgosub10,100,1000,63000
  68. 10200 goto 10000
  69. 63000 rem  connect to ls
  70. 63010 print"[147]load"chr$(34)"hello"chr$(34)",8":print"run"
  71. 63020 poke631,13:poke632,13:poke198,2:        end
  72.